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6-SEP-1984 10:32:18 CBASRTL.SRCIJBASMULDDI MAR: 1 a) 
00 -TITLE BASSSMULD_DIVD BASIC Multiply and Divide D_floatin 
9 "IDENT 71-0017” ; File: BASMULDDILMAR . 


S 


COOQCCCCOC CO COQOOOOoQooooooooooo 


MARAAAARAAAAAAALLAALAALALSALE LESSEE ESSE ESSE CERES EE EEE SEE ESC E SESE EES Eee ee aaa os | 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 

e 

7 

® 

aa 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ONLY IN ACCORDANCE WITH THE TERMS SUCH LICENSE AND WITH THE ®* 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER ®* 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
R PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. * 
® 

® 

® 

* 

® 

® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Be Se Be Oe Oe Oe Be Be Be Be OF Se Se Be Se Se Se Se Se Se See 
ed 


LAR RARARARARAAASALALL SALE EEL ELAR SESE ESE SERRA EES ERE EEE CERES ERE R ESE E REL OS 


DOOOOoCOOCoOoCooOoOoCoOoOoOooOoOoOooOooooOOo 


SOOoOQoQooooooooooooooooooooo 
SoOoOoCoOoCOooCoOooOCoooooooooooSoo 


OWONAUE WN $$ O ODNAUNE WN O ODNAU EWN 0 OONOAUS WN OOWONOUS Wh 


SPREE EEE SE PWWWWIIWIIIinononononononononony 3 2 


4444 j FACILITY: BASIC-PLUS-2 Miscellaneous 

0000 > ABSTRACT: 

0000 : This module contains routines to multiply and divide D_floating 
+43 : values. They are used by BASIC Scale and Descale routines. 
0000 : 

0000 i-- 

0000 3 

0000 3; VERSION: 1 

0000 3 

0000 3 HISTORY: 

0000 3 

0000 3 AUTHOR: 

site ; John Sauter, 08-MAY-1979 

0000 > MODIFIED BY: 

0000 3 

0000 : 

0000 3 


vesting 15-SEP-19 


ASSSMULD_DIVD C Multipl nd Divide D 4 23:57:49 VAX/VMS Macro v04-00 
#301 ERY ye KF be lh “£492 History 6S paige 93:35:48 BASRTL.SRC JBASMULDDI .MAR; 1 
a 1 -SBTTL HISTORY ; Detailed Current Edit History 
00 
: : ; Edit History for Version 1 of BASMULDDI 
0000 6 ; 1-001 = Original. JBS 08-MAY-1979 


reg 


oe 


BASSSMULD_DIVD 
1-001 CLARATION 
60 
0 61 
3 
3 
44 65 
000 66 
0000 «= 67 
000 = 68 
3 
0 
0000 71 
00 ? 
000 7 
0000 74 
0000 75 
0000 7 
00000000 7? 
0000 78 
0000 79 
000 HY 
000 : 
000 ¢ 
0000 ; 
0000 4 
0000 
0000 86 
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i at P+ $3: 95:48 AX/VMS Macro V04-00 
6-SEP-1984 10:32:18 (CBASRTL.SRCIJBASMULDD! .MAR; 1 
~SBTTL DECLARATIONS 


INCLUDE FILES: 


> EXTERNAL SYMBOLS: 


-DSABL GBL ; No automatic globals 


MACROS: 
NONE 


: PSECT DECLARATIONS: 


-PSECT _BASSCODE PIC, SHR, LONG, EXE, NOWRT 


EQUATED SYMBOLS: 
NONE 


OWN STORAGE: 
NONE 


ou 3) 
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00 BASSSAULD Futtioly DYicstshg cutbots — SasEPc1oRG VOrkorts PaRSH eS Saese YOK OO | ue.y Page 6, 
-SBTTL BASSSMULD Multiply D floating numbers 

3+ 
. 3 : FUNCTIONAL DESCRIPTION: 
09 94 : Multiply two D_floating numbers, producing a D_floating product. 
i 32 : Underflow is made zero. 
2093 $3 ; CALLING SEQUENCE: 
099 Ri ; BASSSMULD (VAL1.rd.r, VAL2.rd.r, PRODUCT. wd.r) 
0000 191 : INPUT PARAMETERS: 
$008 198 : VAL1.rd.r Number to multiply 
0000 104; VAL2.rd.r Number to multiply 
0000 105; 
0000 106 ; IMPLICIT INPUTS: 
0000 107; 
8008 108 ; NONE 
000 109; 
0000 110 ; OUTPUT PARAMETERS: 
4444 111 ; 
000 BF 3 PRODUCT .wd.r VAL1 * VAL2 
0000 113; 
0000 114 ; IMPLICIT OUTPUTS: 
0000 115; 
0000 116; NONE 
44 117 ; 
000 118 ; FUNCTION VALUE: 
0000 119; 
0000 120; NONE 
0000 121; 
0000. «(1 ¢ : SIDE EFFECTS: 
0000 123; 
0000 124; May get Lest ing Reserved Operand hardware trap. 
000 } 3 : May get an arithmetic fault doing the multiply. 
00 127 i-- 
00 128 
00 129 
4000 4 ; ? a -ENTRY BASSSMULD, “M<IV> 
; ! § ; Define symbols for the arguments 
00000004 99 134 VAL1=4 
00000008 135 VAL2=8 
0000000C 000 ; $ PRODUC T=12 
0 138 ;+ ; 
139 ; Do the multiply 
005 ian 
OC BC 08 BC 04 BC 65 099 16 MULD3 @VALI(AP), @VAL2(AP), @PRODUCT(AP) 
04 00 14 RET 3; Return to caller. 
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bett BASSSDIVD Divide D. rLoaring nuckere’ a-$Fb=]98e 10:80:18 LBASRT eae oASUL oor mars1 2% (2) 
oA 132 -SBTTL BASSSDIVD Divide D_floating numbers 
A 129 3++ 
. 148 3 FUNCTIONAL DESCRIPTION: 
A 150; Divide two D_floating numbers, producing a D_floating quotient. 
BOA : 1 Underflow is made zero. 
BRA ! 5 ; CALLING SEQUENCE: 
: 33 BASSSDIVD (DIVISOR.rd.r, DIVIDEND.rd.r, QUOTIENT. wd.r) 
OOA 139 3; INPUT PARAMETERS: 
QOA 138 ; ; 
OOA 159; DIVISOR.rd.r Divisor 
OOA 160 ; DIVIDEND. rd.r Dividend 
QOOA 161 ; 
O0A 196 ; IMPLICIT INPUTS: 
OOA 163; 
OOA 164; NONE 
QOOA 165 ; 
O0A 196 3; OUTPUT PARAMETERS: 
OOA 167; 
QOOOA 168 ; QUOTIENT.wd.r DIVIDEND / DIVISOR 
QO0A 192 3 
QOOOA 170 ; IMPLICIT OUTPUTS: 
QOOA 171; 
QOOA We 3 NONE 
QOOOA 173; 
OOOA 174 ; FUNCTION VALUE: 
QOOOA 175; 
OO0A 178 3 NONE 
QOOA 177; 
QO0A 178 3; SIDE EFFECTS: 
QOOA 179; ; 
QOOA 180 ; May get Fleet inp Reserved Operand hardware trap. 
QOOOA 181; May get an arithmetic fault doing the divide. 
QOO0OA 1 § ; 
O00A 183 ;-- 
O0OA 184 
O0OA 185 
4000 oor : ‘ -ENTRY BASSSDIVD, “M<IV> 
48 189 3 Define symbols for the arguments 
90000004 9o¢ 190 DIVISOR=4 
00008 C 191 DIVIDEND=8 
0000000C 000C 13 QUOTIENT=12 
ooc 19 
C 194 3+ 
C 195 ; Do the divide. 
Oot iar 
0c BC 08 BC 04 BC 6? *6 133 DIVD3 @VALI(AP), @VAL2(AP), @PRODUCT (AP) 
4 001 19 RET ; Return to caller. 
Be 
14 1 -END 


ee 
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BASSSMULD_DIVD BASIC Multiply and Divide D_float 15-SEP-1984 57:49 
Symbol table emote: eee. "s grsEpaj98G 10,82: 48 
BASSSDIVD OOO0A RG 4 
BASSSMULD 0 RG 1 
PRODUCT = ¢ 
VAL = 00004 
VAL2 = 00000008 
bao ecesce men eren owen t 
: Psect synopsis ! 
bare me seme ree ema ae + 
PSECT name Allocation PSECT No. Attributes 
- ABS. 00000000 ( 0.) 89 ( 0.) NOPIC USR CON ABS LCL 
_BASSCODE 00000014 (« 20.) nC Yer PIC USR CON REL LCL 
twee creer mre eee ee om en erane= + 
; Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization oe 00:00:00.08 00:00:00. 5 
Command processing 1 00:00:00.54 00:00:02.78 
Pass 1 66 00:00:00.40 00:00:01.57 
Symbol table sort 0 bs Sh 4 8 4 00:00:00.00 
Pass 2 46 00:00:00. : 00:00:01.87 
Symbol table output es BS 00:00:00.01 
Psect synopsis output 0:00:00.02 00:00:00.02 
Cross-reference output 90:08:80. 08 00:00:00.00 
Assembler run totals 249 00:00:01.4 00:00:06.90 


The working set Limit was 1050 pages. 
1972 bytes (4 pages) of virtual memory were used to buffer the intermediate code. 
There were 10 pages of symbol table space allocated to hold 8 non-local and 0 local symbols. 
01 source Lines were read in Pass 1, producing 13 object records in Pass 2. 
pages of virtual memory were used to define 0 macros. 


tewseecnne eee2eceo eam eee mms $ 


: 
$e ew oce es 


Macro Library name 
_$255$DUA28: CSYSLIBISTARLET.MLB;2 0 
0 GETS were required to define 0 macros. 


There were no errors, warnings or information messages. 
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NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SHR EXE RD NOWRT NOVEC LONG 


MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:BASMULDD1/0BJ=OBJ$:BASMULDDI MSRC$:BASMULDDI/UPDATE=(ENHS:BASMULDD 1) 


oO 
er 
=> 
wn 
= 
—_ 
~< 
aa 
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